MetBrewer一个让你爱不释手的调色板

欢迎关注R语言数据分析指南

❝

最近绘图一直让人最苦恼的就是配色问题，有时「ggsci」真不能解决问题，本节来介绍一个新的调色板「MetBrewer」,一次性解决绘图中的配色问题

❞

安装R包

install.packages("MetBrewer")

install.packages("devtools")
devtools::install_github("BlakeRMills/MetBrewer")

可以看到支持的色系还是非常的丰富，下面来具体介绍几个经典的色系

这个色系就非常适合绘制热图，下面让我们来绘制一个例图展示一下效果

library(tidyverse)
library(MetBrewer)
library(patchwork)

p1 <- scale(mtcars) %>% data.frame() %>% 
  rownames_to_column("ID") %>% head() %>% 
  pivot_longer(-ID) %>% 
  ggplot(aes(name,ID,fill=value)) + geom_tile()+
  theme_minimal()+
  scale_fill_viridis_c() +
  scale_y_discrete(position="right")+
  xlab(NULL) + ylab(NULL)+
  theme(axis.text=element_blank())

p2 <- scale(mtcars) %>% data.frame() %>% 
  rownames_to_column("ID") %>% head() %>% 
  pivot_longer(-ID) %>% 
  ggplot(aes(name,ID,fill=value)) + geom_tile()+
  theme_minimal()+
  scale_fill_gradientn(colors=met.brewer("Cassatt1"))+
  scale_y_discrete(position="right")+
  xlab(NULL) + ylab(NULL)+
  theme(axis.text=element_blank())

p1|p2

可以看到清雅了不少，如果需要调整颜色还可以对调色板进行色系反转,如下所示

scale(mtcars) %>% data.frame() %>% 
  rownames_to_column("ID") %>% head() %>% 
  pivot_longer(-ID) %>% 
  ggplot(aes(name,ID,fill=value)) + geom_tile()+
  theme_minimal()+
  scale_fill_gradientn(colors=rev(met.brewer("Cassatt1")))+
  scale_y_discrete(position="right")+
  xlab(NULL) + ylab(NULL)+
  theme(axis.text=element_blank())

❝

可以看到都是非常有艺术感的色系，不管是离散色还是渐变色，应有尽有;更多精彩案例请阅读官方文档「https://github.com/BlakeRMills/MetBrewer×」

❞

欢迎大家扫描下方二位码加入「QQ交流群」,与全国各地上千位小伙伴交流

「关注下方公众号下回更新不迷路」，如需要加入微信交流群可添加小编微信，请备注单位+方向+姓名

往期推荐